home *** CD-ROM | disk | FTP | other *** search
- object Form5: TForm5
- Left = 342
- Top = 193
- BorderStyle = bsDialog
- Caption = 'Add images'
- ClientHeight = 369
- ClientWidth = 356
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poDesktopCenter
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Button1: TButton
- Left = 45
- Top = 333
- Width = 75
- Height = 25
- Caption = 'Start'
- Default = True
- Enabled = False
- ModalResult = 1
- TabOrder = 0
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 225
- Top = 333
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 1
- end
- object PageControl1: TPageControl
- Left = 8
- Top = 8
- Width = 337
- Height = 313
- ActivePage = TabSheet1
- TabOrder = 2
- object TabSheet1: TTabSheet
- Caption = 'Basic'
- object Label2: TLabel
- Left = 13
- Top = 11
- Width = 69
- Height = 13
- Caption = 'Selected path:'
- end
- object Label4: TLabel
- Left = 14
- Top = 196
- Width = 82
- Height = 13
- Caption = 'Compress quality:'
- end
- object Label5: TLabel
- Left = 104
- Top = 196
- Width = 15
- Height = 13
- Caption = '40'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Edit1: TEdit
- Left = 16
- Top = 31
- Width = 265
- Height = 21
- TabOrder = 0
- OnChange = Edit1Change
- end
- object Button3: TButton
- Left = 291
- Top = 30
- Width = 22
- Height = 22
- Caption = '...'
- TabOrder = 1
- OnClick = Button3Click
- end
- object TrackBar1: TTrackBar
- Left = 8
- Top = 209
- Width = 305
- Height = 38
- Max = 100
- Min = 10
- Frequency = 10
- Position = 40
- TabOrder = 2
- ThumbLength = 15
- TickMarks = tmBoth
- OnChange = TrackBar1Change
- end
- object ReplacePathCheck: TCheckBox
- Left = 15
- Top = 254
- Width = 97
- Height = 17
- Caption = 'Replace path'
- Checked = True
- State = cbChecked
- TabOrder = 3
- end
- object RescanImagesCheck: TCheckBox
- Left = 143
- Top = 255
- Width = 97
- Height = 17
- Caption = 'Rescan images'
- TabOrder = 4
- end
- object GroupBox1: TGroupBox
- Left = 8
- Top = 64
- Width = 313
- Height = 121
- Caption = ' Sample size mode '
- TabOrder = 5
- object Label3: TLabel
- Left = 136
- Top = 56
- Width = 14
- Height = 13
- Caption = 'W:'
- end
- object Label6: TLabel
- Left = 224
- Top = 56
- Width = 11
- Height = 13
- Caption = 'H:'
- end
- object Label1: TLabel
- Left = 224
- Top = 88
- Width = 11
- Height = 13
- Caption = 'H:'
- end
- object Label7: TLabel
- Left = 136
- Top = 88
- Width = 14
- Height = 13
- Caption = 'W:'
- end
- object rbSampleSizeLongSide: TRadioButton
- Left = 8
- Top = 24
- Width = 137
- Height = 17
- Caption = 'Length of longer side:'
- TabOrder = 0
- end
- object SizeEdit: TEdit
- Left = 160
- Top = 20
- Width = 57
- Height = 21
- TabOrder = 1
- Text = '640'
- end
- object rbSampleSizeFixed: TRadioButton
- Left = 8
- Top = 54
- Width = 113
- Height = 17
- Caption = 'Fixed demensions: '
- TabOrder = 2
- end
- object eFixedWidth: TEdit
- Left = 160
- Top = 52
- Width = 57
- Height = 21
- TabOrder = 3
- Text = '640'
- end
- object eFixedHeight: TEdit
- Left = 240
- Top = 52
- Width = 57
- Height = 21
- TabOrder = 4
- Text = '480'
- end
- object rbSampleSizeFlex: TRadioButton
- Left = 8
- Top = 88
- Width = 121
- Height = 15
- Caption = 'Keep square as for:'
- Checked = True
- TabOrder = 5
- TabStop = True
- WordWrap = True
- end
- object eFlexWidth: TEdit
- Left = 160
- Top = 84
- Width = 57
- Height = 21
- TabOrder = 6
- Text = '640'
- end
- object eFlexHeight: TEdit
- Left = 240
- Top = 84
- Width = 57
- Height = 21
- TabOrder = 7
- Text = '480'
- end
- end
- end
- object TabSheet4: TTabSheet
- Caption = 'Processed images'
- ImageIndex = 3
- object clbProcessed: TCheckListBox
- Left = 16
- Top = 8
- Width = 297
- Height = 265
- ItemHeight = 13
- Items.Strings = (
- 'JPEG images (*.jpg, *.jpeg)'
- 'Windows bitmap (*.bmp)'
- 'TIFF images (*.tif, *.tiff)'
- 'GFI fax images (*.fax)'
- 'SGI images (*.bw, *.rgb, *.rgba, *.sgi)'
- 'Autodesk images files (*.cel, *.pic)'
- 'Truevision images (*.tga; *.vst, *.icb, *.vda, *.win)'
- 'ZSoft Paintbrush images (*.pcx, *.pcc)'
- 'Word 5.x screen capture files (*.scr)'
- 'Kodak Photo-CD images (*.pcd)'
- 'Dr. Halo images (*.cut, *.pal)'
- 'CompuServe images (*.gif)'
- 'SGI Wavefront images (*.rla, *.rpf)'
- 'Photoshop images (*.psd, *.pdd)'
- 'Paintshop Pro images (*.psp)'
- 'Portable network graphic images (*.png)'
- 'QuickTime movie (*.mov)')
- TabOrder = 0
- end
- end
- object TabSheet3: TTabSheet
- Caption = 'Additional files'
- ImageIndex = 2
- object rgAdditType: TRadioGroup
- Left = 8
- Top = 8
- Width = 313
- Height = 89
- Caption = ' Mode '
- Color = clBtnFace
- ItemIndex = 0
- Items.Strings = (
- 'None'
- 'All files'
- 'Selected by mask')
- ParentColor = False
- TabOrder = 0
- end
- object GroupBox2: TGroupBox
- Left = 8
- Top = 104
- Width = 313
- Height = 169
- Caption = ' Masks definitions '
- TabOrder = 1
- object eAddExt: TEdit
- Left = 8
- Top = 20
- Width = 233
- Height = 21
- TabOrder = 0
- OnChange = eAddExtChange
- end
- object btAdd: TButton
- Left = 248
- Top = 16
- Width = 49
- Height = 25
- Caption = 'Add'
- TabOrder = 1
- OnClick = btAddClick
- end
- object lvExt: TListView
- Left = 8
- Top = 48
- Width = 289
- Height = 81
- Columns = <
- item
- Width = 200
- end
- item
- Width = 80
- end>
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- HideSelection = False
- RowSelect = True
- ParentFont = False
- ShowColumnHeaders = False
- SmallImages = ImageList1
- TabOrder = 2
- ViewStyle = vsReport
- OnClick = lvExtClick
- OnCustomDrawSubItem = lvExtCustomDrawSubItem
- OnEdited = lvExtEdited
- end
- object btEdit: TButton
- Left = 56
- Top = 136
- Width = 81
- Height = 25
- Caption = 'Edit'
- TabOrder = 3
- OnClick = btEditClick
- end
- object btDelete: TButton
- Left = 160
- Top = 136
- Width = 73
- Height = 25
- Caption = 'Delete'
- TabOrder = 4
- OnClick = btDeleteClick
- end
- end
- end
- end
- object btSaveOptions: TButton
- Left = 136
- Top = 333
- Width = 75
- Height = 25
- Caption = 'Save options'
- TabOrder = 3
- OnClick = btSaveOptionsClick
- end
- object PBFolderDialog1: TPBFolderDialog
- Flags = [OnlyFileSystem, ShowPath, NewDialogStyle, HideNewFolderButton, ShowShared]
- Left = 232
- end
- object ImageList1: TImageList
- BkColor = clWhite
- Left = 260
- end
- end
-